home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vlib250.zip / VISUALIB.TXT < prev    next >
Text File  |  1994-11-08  |  35KB  |  613 lines
  1. 'VISUALIB global declarations for Visual Basic
  2.  
  3. 'Constants, types, and Macros
  4.  
  5. Type POINT2D
  6.     x As Double
  7.     y As Double
  8. End Type
  9.  
  10. Type POINT2H
  11.     x As Double
  12.     y As Double
  13.     w As Double
  14. End Type
  15.  
  16. Type POINT3D
  17.     x As Double
  18.     y As Double
  19.     z As Double
  20. End Type
  21.  
  22. Type POINT3H
  23.     x As Double
  24.     y As Double
  25.     z As Double
  26.     w As Double
  27. End Type
  28.  
  29. Type rect
  30.     left As Integer
  31.     top As Integer
  32.     right As Integer
  33.     bottom As Integer
  34. End Type
  35.  
  36. Type Box2D
  37.     xmin As Double
  38.     xmax As Double
  39.     ymin As Double
  40.     ymax As Double
  41. End Type
  42.  
  43. Type Box3D
  44.     xmin As Double
  45.     xmax As Double
  46.     ymin As Double
  47.     ymax As Double
  48.     zmin As Double
  49.     zmax As Double
  50. End Type
  51.  
  52.  
  53. 'coordinate type
  54. Global Const VL_2D = 4096   '0x1000
  55. Global Const VL_3D = 8192   '0x2000
  56. Global Const VL_2H = 1024   '0x0400
  57. Global Const VL_3H = 2048   '0x0800
  58.  
  59. 'viewer status flag
  60. Global Const VL_TWOD = 8
  61. Global Const VL_THREED = 16
  62. Global Const VL_CURRENT = 256
  63. Global Const VL_DEFAULT = &H1000
  64. Global Const VL_DEFAULT2D = &H1100
  65.  
  66. 'light coordinate mode
  67. Global Const VL_WORLDLIGHT = 1
  68. Global Const VL_CAMERALIGHT = 2
  69. Global Const VL_OBJECTLIGHT = 4
  70.  
  71. 'light type
  72. Global Const VL_POINTLIGHT = 256     '0x0100
  73. Global Const VL_DISTLIGHT = 512      '0x0200
  74. Global Const VL_SPOTLIGHT = 1024     '0x0400
  75. Global Const VL_AREALIGHT = 2048     '0x0800
  76.  
  77. 'color type
  78. Global Const VL_MATERIALAMBIENT = 1
  79. Global Const VL_MATERIALDIFFUSE = 2
  80. Global Const VL_MATERIALSPECULAR = 3
  81. Global Const VL_MATERIALEMISSION = 4
  82. Global Const VL_AMBIENTREFLECT = 5
  83. Global Const VL_DIFFUSEREFLECT = 6
  84. Global Const VL_SPECULARREFLECT = 7
  85. Global Const VL_EMISSIONSTRENGTH = 8
  86. Global Const VL_SHININESS = 9
  87.  
  88. Global Const VL_LIGHTCOLOR = 16           '0x0010
  89. Global Const VL_AMBIENTCONTRIB = 32       '0x0020
  90. Global Const VL_LIGHTLOCATION = 48        '0x0030
  91. Global Const VL_LIGHTDIRECTION = 64       '0x0040
  92. Global Const VL_LIGHTINTENSITY = 80       '0x0050
  93. Global Const VL_SPOTLIGHTANGLE = 96       '0x0060
  94. Global Const VL_SPOTLIGHTSPREAD = 112     '0x0070
  95.  
  96. Global Const VL_ATTENUATION = 256         '0x0100
  97. Global Const VL_GLOBALAMBIENT = 512       '0x0200
  98. Global Const VL_BACKGROUNDCOLOR = 768     '0x0300
  99. Global Const VL_SHADINGMETHOD = 1024      '0x0400
  100. Global Const VL_SHADINGMODEL = 1280       '0x0500
  101. Global Const VL_LOCALVIEWER = 1536        '0x0600
  102. Global Const VL_COUNTCLOCKWISE = 1792     '0x0700
  103. Global Const VL_TWOSIDESHADE = 2048       '0x0800
  104. Global Const VL_DEPTHBUFFER = 2304        '0x0900
  105. Global Const VL_BACKFACEREMOVAL = 2560    '0x0A00
  106. Global Const VL_PERTURBMATERIAL = 2816    '0x0B00
  107. Global Const VL_PERTURBNORMAL = 3072      '0x0C00
  108. Global Const VL_PERTURBPIXEL = 3328       '0x0D00
  109. Global Const VL_PERTURBFACET = 3584       '0x0E00
  110. Global Const VL_ENVIRONMENT = 3840        '0x0F00
  111.  
  112. Global Const VL_INQUIRE = -1
  113.  
  114. 'projection mode
  115. Global Const VL_PROJECTIONMODE = 3
  116. Global Const VL_PERSPECTIVE = 1
  117. Global Const VL_ORTHOGONAL = 2
  118.  
  119. 'standard pen and brush color
  120. Global Const VL_NONE = 0
  121. Global Const VL_RED = 1
  122. Global Const VL_GREEN = 2
  123. Global Const VL_BLUE = 3
  124. Global Const VL_BROWN = 4
  125. Global Const VL_MAGENTA = 5
  126. Global Const VL_CYAN = 6
  127. Global Const VL_WHITE = 7
  128. Global Const VL_GRAY = 8
  129. Global Const VL_LIGHTRED = 9
  130. Global Const VL_LIGHTGREEN = 10
  131. Global Const VL_LIGHTBLUE = 11
  132. Global Const VL_YELLOW = 12
  133. Global Const VL_LIGHTMAGENTA = 13
  134. Global Const VL_LIGHTCYAN = 14
  135. Global Const VL_LIGHTGRAY = 15
  136. Global Const VL_BLACK = 16
  137.  
  138. 'shading method
  139. Global Const VL_WIREFRAME = 1
  140. Global Const VL_SOLIDFILL = 2
  141. Global Const VL_CONTOURSHADE = 4
  142. Global Const VL_GOURAUDSHADE = 8
  143. Global Const VL_PHONGSHADE = 16
  144. Global Const VL_FLATSHADE = 32
  145.  
  146. 'shading model
  147. Global Const VL_PHONGMODEL = 256        '      0x0100
  148. Global Const VL_SPECULARMODEL = 512        '        0x0200
  149.  
  150. 'mark type
  151. Global Const VL_NULLMARK = 0
  152. Global Const VL_CIRCLEMARK = 1
  153. Global Const VL_CROSSMARK = 2
  154. Global Const VL_XMARK = 4
  155. Global Const VL_TRIANGLEMARK = 8
  156. Global Const VL_BOXMARK = 16
  157. Global Const VL_DIAMONDMARK = 32
  158. Global Const VL_HEXAGONMARK = 64
  159. Global Const VL_OCTAGONMARK = 128       '   0x0080
  160.  
  161. 'arrow head type
  162. Global Const VL_NULLARROW = 0
  163. Global Const VL_OPENARROW = 256         '   0X0100
  164. Global Const VL_CLOSEDARROW = 512           '0X0200
  165.  
  166. 'position mark type
  167. Global Const VL_CROSSHAIR = 1
  168. Global Const VL_ORIGIN = 2
  169.  
  170. 'solid texture flag
  171. Global Const VL_MARBLE = 1
  172. Global Const VL_WOODGRAIN = 2
  173. Global Const VL_GRANITE = 4
  174. Global Const VL_BUMPY = 8
  175.  
  176.  
  177. 'Function Prototypes
  178.  
  179.  
  180. 'Basic Functions
  181.  
  182. Declare Function InitializeVisualib Lib "visualib.dll" () As Integer
  183. Declare Sub ExitVisualib Lib "visualib.dll" ()
  184. Declare Sub AboutVisualib Lib "visualib.dll" ()
  185. Declare Sub LicenseInfo Lib "visualib.dll" ()
  186.  
  187. 'utility functions
  188. 'Declare Function MessageOn Lib "visualib.dll" (ByVal flag%) As Integer
  189. 'Declare Sub ErrorMessage Lib "visualib.dll" (ByVal msg$)
  190. 'Declare Sub Message Lib "visualib.dll" (ByVal msg$)
  191. Declare Function SelectColor Lib "visualib.dll" (ByVal color&) As Long
  192.  
  193. Declare Sub SetPoint2D Lib "visualib.dll" (pt As POINT2D, ByVal x#, ByVal y#)
  194. Declare Sub SetPoint3D Lib "visualib.dll" (pt As POINT3D, ByVal x#, ByVal y#, ByVal z#)
  195. Declare Sub SetPoint2H Lib "visualib.dll" (pt As POINT2H, ByVal x#, ByVal y#, ByVal w#)
  196. Declare Sub SetPoint3H Lib "visualib.dll" (pt As POINT3H, ByVal x#, ByVal y#, ByVal z#, ByVal w#)
  197. Declare Sub SetBox2D Lib "visualib.dll" (box As Box2D, ByVal xmin#, ByVal xmax#, ByVal ymin#, ByVal ymax#)
  198. Declare Sub SetBox3D Lib "visualib.dll" (box As Box3D, ByVal xmin#, ByVal xmax#, ByVal ymin#, ByVal ymax#, ByVal zmin#, ByVal zmax#)
  199.  
  200. Declare Sub PenColor Lib "visualib.dll" (ByVal hdc%, ByVal color_index%)
  201. Declare Sub BrushColor Lib "visualib.dll" (ByVal hdc%, ByVal color_index%)
  202. Declare Sub TextColor Lib "visualib.dll" (ByVal hdc%, ByVal tcolor%, ByVal bcolor%)
  203. Declare Sub PaintColor Lib "visualib.dll" (ByVal hdc%, ByVal pen%, ByVal brush%, ByVal mode%)
  204.  
  205. 'Declare Function CreateViewer Lib "visualib.dll" (ByVal vname$, ByVal bot%, ByVal r%, ByVal top%, ByVal l%, ByVal vtype%, ByVal mode%) As Long
  206. Declare Function DeleteViewer Lib "visualib.dll" (ByVal vid&) As Integer
  207. Declare Function NewViewer Lib "visualib.dll" (ByVal typ%) As Long
  208. Declare Function CleanViewer Lib "visualib.dll" (ByVal hdc%, ByVal vid&) As Integer
  209. Declare Sub FreeViewer Lib "visualib.dll" (ByVal vid&)
  210. Declare Function ViewerBackgroundColor Lib "visualib.dll" (ByVal vid&, ByVal c&) As Long
  211. Declare Function ViewerName Lib "visualib.dll" (ByVal hv&, ByVal nam$) As Long
  212. 'Declare Function ViewerFrame Lib "visualib.dll" (ByVal hv&, ByVal bot%, ByVal r%, ByVal top%, ByVal l%) As any
  213.  
  214. Declare Function ViewerMappingMode Lib "visualib.dll" (ByVal vid&, ByVal mode%) As Integer
  215. Declare Function CopyViewer Lib "visualib.dll" (ByVal vid1&, ByVal vid2&) As Integer
  216. Declare Function ResetViewer Lib "visualib.dll" (ByVal vid&) As Integer
  217. Declare Function SelectViewer Lib "visualib.dll" (ByVal vid&) As Long
  218. 'Declare Function SetViewerName Lib "visualib.dll" (ByVal vid&, ByVal vname$) As Integer
  219. 'Declare Function GetViewerName Lib "visualib.dll" (ByVal vid&, ByVal vname$) As Integer
  220. Declare Function SetViewerFrame Lib "visualib.dll" (ByVal vid&, port As rect) As Integer
  221. Declare Function GetViewerFrame Lib "visualib.dll" (ByVal vid&, port As rect) As Integer
  222.  
  223. 'Declare Function ClearViewer Lib "visualib.dll" (ByVal hdc%, ByVal vid&, ByVal color%) As Integer
  224. Declare Function displayviewerframe Lib "visualib.dll" (ByVal hdc%, ByVal vid&) As Integer
  225. Declare Function DisplayViewerName Lib "visualib.dll" (ByVal hdc%, ByVal vid&, ByVal top%) As Integer
  226.  
  227. Declare Function BeginDoubleBuffer Lib "visualib.dll" (hdc%) As Integer
  228. Declare Function EndDoubleBuffer Lib "visualib.dll" (hdc%) As Integer
  229. Declare Function UpdateDoubleBuffer Lib "visualib.dll" (ByVal hdc%) As Integer
  230.  
  231.  
  232. '2D Functions
  233.  
  234. Declare Sub Translate2D Lib "visualib.dll" (ByVal x#, ByVal y#)
  235. Declare Sub TranslateTo2D Lib "visualib.dll" (ByVal x#, ByVal y#)
  236. Declare Sub Scale2D Lib "visualib.dll" (ByVal x#, ByVal y#)
  237. Declare Sub PointScale2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal sx#, ByVal sy#)
  238. Declare Sub TranScale2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal sx#, ByVal sy#)
  239. Declare Sub Shear2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal a#, ByVal u#, ByVal v#)
  240. Declare Sub Stretch2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal a#, ByVal f#)
  241. Declare Sub Mirror2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal a#)
  242. Declare Sub Rotate2D Lib "visualib.dll" (ByVal angle#)
  243. Declare Sub PointRotate2D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal a#)
  244.  
  245. Declare Function ViewerField2D Lib "visualib.dll" (ByVal vid&, l#, bottom#, r#, top#) As Integer
  246.  
  247. Declare Function Pushtransformation2d Lib "visualib.dll" (m As Any) As Integer
  248. Declare Function PopTransformation2d Lib "visualib.dll" (m As Any) As Integer
  249. Declare Sub ConcatTransformation2D Lib "visualib.dll" (m As Any, ByVal post%)
  250. Declare Sub LoadTransformation2D Lib "visualib.dll" (m As Any)
  251.  
  252. Declare Function SetProjection2D Lib "visualib.dll" (ByVal vid&, ByVal l#, ByVal bottom#, ByVal r#, ByVal top#) As Integer
  253. Declare Function SetView2D Lib "visualib.dll" (ByVal vid&, ByVal x#, ByVal y#, ByVal a#) As Integer
  254. Declare Function SetWindow2D Lib "visualib.dll" (ByVal vid&, ByVal l#, ByVal b#, ByVal r#, ByVal t#) As Integer
  255.  
  256. Declare Function MoveViewer2D Lib "visualib.dll" (ByVal vid&, ByVal h#, ByVal v#, ByVal localv%) As Integer
  257. Declare Function RotateViewer2D Lib "visualib.dll" (ByVal vid&, ByVal a#, ByVal localv%) As Integer
  258. Declare Function ZoomViewer2D Lib "visualib.dll" (ByVal vid&, ByVal z#) As Integer
  259.  
  260. Declare Sub MoveTo2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#)
  261. Declare Sub RMoveTo2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#)
  262. Declare Sub LineTo2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#)
  263. Declare Sub RLineTo2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#)
  264. Declare Sub Line2D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#)
  265. Declare Sub RLine2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal dx#, ByVal dy#)
  266. Declare Sub Label2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal label$)
  267. Declare Sub MoveTo2H Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal w#)
  268. Declare Sub LineTo2H Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal w#)
  269. Declare Sub Line2H Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal w1#, ByVal x2#, ByVal y2#, ByVal w2#)
  270.  
  271. Declare Sub Polygon2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, vertex As Any, ByVal count%)
  272. Declare Sub PolyPolygon2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, vertex As Any, polycount As Any, ByVal count%)
  273. Declare Sub Polyline2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal count%)
  274. Declare Sub ClosedPolyline2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal count%)
  275. Declare Sub Mark2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal hsize%, ByVal vsize%, ByVal head%)
  276. Declare Sub PolyMark2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal n%, ByVal hsize%, ByVal vsize%, ByVal head%)
  277. Declare Sub Pointer2D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#, ByVal l#, ByVal w#, ByVal typ%)
  278. Declare Sub Arrow2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal u#, ByVal v#, ByVal r#, ByVal l#, ByVal w#, ByVal typ%)
  279. Declare Sub Net2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal m%, ByVal n%)
  280. Declare Sub MarkPosition2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal size#, ByVal typ%)
  281.  
  282.  
  283. '       3D Functions
  284.  
  285. Declare Function ProjectionMode Lib "visualib.dll" (ByVal vid&, ByVal mode&) As Integer
  286.  
  287. Declare Sub Translate3D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal z#)
  288. Declare Sub TranslateTo3D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal z#)
  289. Declare Sub Scale3D Lib "visualib.dll" (ByVal sx#, ByVal sy#, ByVal sz#)
  290. Declare Sub PointScale3D Lib "visualib.dll" (ByVal x#, ByVal y#, ByVal z#, ByVal sx#, ByVal sy#, ByVal sz#)
  291. Declare Sub Rotate3D Lib "visualib.dll" (ByVal a#, ByVal axis%)
  292. Declare Sub AxleRotate3D Lib "visualib.dll" (ref As Any, dire As Any, ByVal a#)
  293. Declare Sub Stretch3D Lib "visualib.dll" (ref As Any, dire As Any, ByVal f#)
  294. Declare Sub Shear3D Lib "visualib.dll" (ref As Any, dire As Any, ByVal u#, ByVal v#)
  295. Declare Sub Mirror3D Lib "visualib.dll" (ref As Any, dire As Any)
  296.  
  297. Declare Function PushTransformation3D Lib "visualib.dll" (m As Any) As Integer
  298. Declare Function PopTransformation3D Lib "visualib.dll" (m As Any) As Integer
  299. Declare Sub ConcatTransformation3D Lib "visualib.dll" (m As Any, ByVal post%)
  300. Declare Sub LoadTransformation3D Lib "visualib.dll" (m As Any)
  301.  
  302. Declare Function ResetProjection3D Lib "visualib.dll" (ByVal vid&) As Integer
  303. Declare Function SetProjection3D Lib "visualib.dll" (ByVal vid&, ByVal l#, ByVal b#, ByVal r#, ByVal t#, ByVal f%, ByVal b#, ByVal mode%) As Integer
  304. Declare Function SetPerspective Lib "visualib.dll" (ByVal vid&, ByVal fovy#, ByVal asp#, ByVal zmin#, ByVal zmax#) As Integer
  305. Declare Function SetView3D Lib "visualib.dll" (ByVal vid&, ByVal ex#, ByVal ey#, ByVal ez#, ByVal ax#, ByVal ay#, ByVal az#, ByVal twist#) As Integer
  306. Declare Function SetPolarView Lib "visualib.dll" (ByVal vid&, ByVal ax#, ByVal ay#, ByVal az#, ByVal dist#, ByVal azim#, ByVal inc#, ByVal twist#) As Integer
  307.  
  308. Declare Function ViewerLocation Lib "visualib.dll" (ByVal vid&, x#, y#, z#) As Integer
  309. Declare Function ViewerDirection Lib "visualib.dll" (ByVal vid&, x#, y#, z#) As Integer
  310. Declare Function ViewerField3D Lib "visualib.dll" (ByVal vid&, l#, b#, r#, t#, f#, b#) As Integer
  311.  
  312. Declare Function MoveViewer3D Lib "visualib.dll" (ByVal vid&, ByVal h#, ByVal v#, ByVal b#, ByVal localv%) As Integer
  313. Declare Function RotateViewer3D Lib "visualib.dll" (ByVal vid&, ByVal a#, ByVal axis%, ByVal localv%) As Integer
  314. Declare Function ZoomViewer3D Lib "visualib.dll" (ByVal vid&, ByVal z#) As Integer
  315.  
  316. Declare Sub MoveTo3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#)
  317. Declare Sub LineTo3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#)
  318. Declare Sub RMoveTo3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#)
  319. Declare Sub RLineTo3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#)
  320. Declare Sub MoveTo3H Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal w#)
  321. Declare Sub LineTo3H Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal w#)
  322.  
  323. Declare Sub Line3D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal z1#, ByVal x2#, ByVal y2#, ByVal z2#)
  324. Declare Sub RLine3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal dx#, ByVal dy#, ByVal dz#)
  325.  
  326. Declare Sub PolyArrow3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, dire As Any, ByVal n%, ByVal r#, ByVal l#, ByVal w#, ByVal htype%)
  327. Declare Sub Label3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal label$)
  328. Declare Function Mark3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal hsize%, ByVal vsize%, ByVal typ%) As Integer
  329. Declare Sub PolyMark3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal n%, ByVal hsize%, ByVal vsize%, ByVal htype%)
  330.  
  331. Declare Sub Polygon3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, vertex As Any, ByVal count%)
  332. Declare Sub PolyPolygon3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, vertex As Any, polycount As Any, ByVal count%)
  333. Declare Sub Polyline3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal count%)
  334. Declare Sub ClosedPolyline3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal count%)
  335. Declare Sub MarkPosition3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal size#, ByVal typ%)
  336. Declare Sub Pointer3D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal z1#, ByVal x2#, ByVal y2#, ByVal z2#, ByVal l#, ByVal w#, ByVal typ%)
  337. Declare Sub Arrow3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal z#, ByVal u#, ByVal v#, ByVal w#, ByVal r#, ByVal l#, ByVal t#, ByVal typ%)
  338. Declare Sub Net3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal m%, ByVal n%)
  339.  
  340.  
  341. 'Shading Functions
  342.  
  343. Declare Sub ResetShader Lib "visualib.dll" ()
  344.  
  345. 'depth buffer functions
  346. Declare Function SetDepthBuffer Lib "visualib.dll" (ByVal hview&) As Integer
  347. Declare Function SelectDepthBuffer Lib "visualib.dll" (ByVal hview&) As Integer
  348. Declare Function FreeDepthBuffer Lib "visualib.dll" (ByVal hview&) As Integer
  349. Declare Sub ClearDepthBuffer Lib "visualib.dll" (ByVal v%)
  350.  
  351. ' light functions
  352. Declare Function CopyLight Lib "visualib.dll" (ByVal lid1&, ByVal lid2&) As Integer
  353. Declare Function ResetLight Lib "visualib.dll" (ByVal lid&) As Integer
  354. 'Declare Function CreateLight Lib "visualib.dll" (ByVal lname$, ByVal typ%) As Long
  355. Declare Function DeleteLight Lib "visualib.dll" (ByVal lid&) As Integer
  356. Declare Function SelectLight Lib "visualib.dll" (ByVal lid&) As Long
  357.  
  358. 'Declare Function CopyLModel Lib "visualib.dll" (ByVal lmid1%, ByVal lmid2%) As Integer
  359. 'Declare Function CreateLModel Lib "visualib.dll" (ByVal lmname$) As Integer
  360. 'Declare Sub DeleteLModel Lib "visualib.dll" (ByVal lmid%)
  361. 'Declare Function SelectLModel Lib "visualib.dll" (ByVal lmid%) As Integer
  362.  
  363. Declare Function LightType Lib "visualib.dll" (ByVal lid&) As Integer
  364. Declare Function SwitchLight Lib "visualib.dll" (ByVal lid&, ByVal status&) As Integer
  365. Declare Function SetLightLocation Lib "visualib.dll" (ByVal lid&, ByVal x#, ByVal y#, ByVal z#) As Integer
  366. Declare Function GetLightLocation Lib "visualib.dll" (ByVal lid&, x#, y#, z#) As Integer
  367. Declare Function SetLightDirection Lib "visualib.dll" (ByVal lid&, ByVal x#, ByVal y#, ByVal z#) As Integer
  368. Declare Function GetLightDirection Lib "visualib.dll" (ByVal lid&, x#, y#, z#) As Integer
  369. Declare Function SetSpotlightSpread Lib "visualib.dll" (ByVal lid&, ByVal angle%, ByVal spread%) As Integer
  370. Declare Function GetSpotlightSpread Lib "visualib.dll" (ByVal lid&, angle%, spread%) As Integer
  371.  
  372. 'material functions
  373. 'Declare Function CreateMaterial Lib "visualib.dll" (ByVal mname$) As Long
  374. Declare Sub DeleteMaterial Lib "visualib.dll" (ByVal maid&)
  375. Declare Function SelectMaterial Lib "visualib.dll" (ByVal maid&) As Long
  376. Declare Function CopyMaterial Lib "visualib.dll" (ByVal mid1&, ByVal mid2&) As Integer
  377. Declare Function ResetMaterial Lib "visualib.dll" (ByVal maid&) As Integer
  378.  
  379. Declare Function AmbientColor Lib "visualib.dll" (ByVal color&) As Long
  380. Declare Function LightColor Lib "visualib.dll" (ByVal hl&, ByVal color&) As Long
  381. Declare Function MaterialSpecular Lib "visualib.dll" (ByVal hm&, ByVal color&) As Long
  382. Declare Function MaterialAmbient Lib "visualib.dll" (ByVal hm&, ByVal color&) As Long
  383. Declare Function MaterialDiffuse Lib "visualib.dll" (ByVal hm&, ByVal color&) As Long
  384. Declare Function MaterialEmission Lib "visualib.dll" (ByVal hm&, ByVal color&) As Long
  385. Declare Function MaterialShininess Lib "visualib.dll" (ByVal hm&, ByVal sh&) As Integer
  386. Declare Function LightIntensity Lib "visualib.dll" (ByVal hl&, ByVal intens&) As Integer
  387. Declare Function NewLight Lib "visualib.dll" (ByVal typ%) As Long
  388. Declare Function NewMaterial Lib "visualib.dll" () As Long
  389. Declare Function LightCoordinateType Lib "visualib.dll" (ByVal lid&, ByVal typ&) As Integer
  390. Declare Function LightName Lib "visualib.dll" (ByVal lid&) As String
  391. Declare Function MaterialName Lib "visualib.dll" (ByVal hm&) As String
  392.  
  393.  
  394. ' shading parameter functions
  395. 'Declare Function ShadingOption Lib "visualib.dll" (ByVal id%, ByVal opt%, ByVal status&) As Integer
  396.  
  397. 'Declare Function ShadingColor Lib "visualib.dll" Alias "_ShadingColor" (ByVal id%, ByVal typ%, ByVal colo&) As Long
  398.  
  399. 'Declare Function ShadingFactor Lib "visualib.dll" (ByVal id%, ByVal typ%, ByVal f#) As Integer
  400. 'Declare Function ShadingParameter Lib "visualib.dll" (ByVal id%, ByVal typ%, ByVal inquire%, param As Any) As Integer
  401.  
  402. Declare Sub SetAttenuation Lib "visualib.dll" (ByVal k0#, ByVal k1#, ByVal k2#)
  403. Declare Function LocalViewer Lib "visualib.dll" (ByVal status&) As Integer
  404. Declare Function DepthBuffer Lib "visualib.dll" (ByVal status&) As Integer
  405. Declare Function TwoSideShading Lib "visualib.dll" (ByVal status&) As Integer
  406. Declare Function BackFaceRemoval Lib "visualib.dll" (ByVal status&) As Integer
  407. Declare Function PolygonDirection Lib "visualib.dll" (ByVal status&) As Integer
  408. Declare Function ShadingMethod Lib "visualib.dll" (ByVal status&) As Integer
  409. Declare Function ShadingModel Lib "visualib.dll" (ByVal status&) As Integer
  410.  
  411. Declare Function SetRGBPalette Lib "visualib.dll" () As Integer
  412.  
  413. 'shading primitive functions
  414. Declare Function ShadeFacet Lib "visualib.dll" Alias "_ShadeFacet" (ByVal hdc%, normal As Any, ByVal typ%, vertex As Any, ByVal count%, param As Any) As Integer
  415.  
  416. Declare Function ShadePolygon Lib "visualib.dll" Alias "_ShadePolygon" (ByVal hdc%, normal As Any, ByVal typ%, pts As Any, ByVal count%) As Integer
  417.  
  418. Declare Function ShadePolyPolygon Lib "visualib.dll" Alias "_ShadePolyPolygon" (ByVal hdc%, normal As Any, ByVal typ%, vertex As Any, pcount As Any, ByVal count%) As Integer
  419.  
  420. Declare Function ShadePolyFacet Lib "visualib.dll" (ByVal hdc%, polyfacet As Any) As Integer
  421. Declare Function ShadingPreview Lib "visualib.dll" (ByVal hdc%, rect As Any, ByVal r#, ByVal d#) As Integer
  422.  
  423. ' programmable shader functions
  424. Declare Sub GetPixelPosition Lib "visualib.dll" (x%, y%)
  425. Declare Sub GetPixelViewNormal Lib "visualib.dll" (normal As Any)
  426. Declare Sub GetPixelWorldNormal Lib "visualib.dll" (normal As Any)
  427. Declare Sub GetPixelObjectNormal Lib "visualib.dll" (normal As Any)
  428. Declare Sub GetPixelViewCoordinate Lib "visualib.dll" (coord As Any)
  429. Declare Sub GetPixelWorldCoordinate Lib "visualib.dll" (coord As Any)
  430. Declare Sub GetPixelObjectCoordinate Lib "visualib.dll" (coord As Any)
  431. Declare Sub GetPixelViewCameraAxis Lib "visualib.dll" (vaxis As Any)
  432. Declare Sub GetPixelWorldCameraAxis Lib "visualib.dll" (vaxis As Any)
  433. Declare Sub GetPixelObjectCameraAxis Lib "visualib.dll" (vaxis As Any)
  434.  
  435. Declare Function SolidTexture Lib "visualib.dll" (ByVal typ%) As Integer
  436.  
  437.  
  438.  
  439. 'Image Mapping and Printing Functions
  440.  
  441.  
  442. Global Const VL_FLUSHTOP = 1
  443. Global Const VL_FLUSHBOTTOM = 2
  444. Global Const VL_FLUSHLEFT = 4
  445. Global Const VL_FLUSHRIGHT = 8
  446.  
  447. Global Const VL_HORZFIT = &H10
  448. Global Const VL_VERTFIT = &H20
  449. Global Const VL_ALLFIT = &H30
  450. Global Const VL_HORZCENTER = &H40
  451. Global Const VL_VERTCENTER = &H80
  452.  
  453. Global Const VL_HORZSCALED = &H100
  454. Global Const VL_VERTSCALED = &H200
  455. Global Const VL_BESTFIT = &H400
  456. Global Const VL_USE31APIS = &H800
  457.  
  458. Global Const VL_MILLIMETER = &H1000
  459. Global Const VL_CENTIMETER = &H2000
  460. Global Const VL_MARKCORNER = &H4000
  461. Global Const VL_MARKPAGE = &H8000
  462.  
  463. Declare Function ReadDIBFile Lib "visualib.dll" (ByVal fname$, hdib As Any) As Integer
  464. Declare Function ScreenToDIB Lib "visualib.dll" (rect As Any) As Integer
  465. Declare Function WriteDIBFile Lib "visualib.dll" (ByVal fname$, ByVal hdib%) As Integer
  466. Declare Function SetPrintRect Lib "visualib.dll" (ByVal hdc%, rect As Any, ByVal mode%, ByVal x#, ByVal y#, ByVal w#, ByVal h#, ByVal bw%, ByVal bh%) As Integer
  467. Declare Sub GetScreenRect Lib "visualib.dll" (ByVal hwnd%, ByVal withframe%, rect As Any)
  468. Declare Function PrintImage Lib "visualib.dll" (ByVal hdib%, ByVal mode%, ByVal x#, ByVal y#, ByVal w#, ByVal h#) As Integer
  469. Declare Function PrintDrawing Lib "visualib.dll" (draw As Any, ByVal mode%, ByVal x#, ByVal y#, ByVal w#, ByVal h#) As Integer
  470. Declare Function ImageMap2D Lib "visualib.dll" (ByVal hdc%, ByVal hdib%, ByVal typ%, vertex As Any) As Integer
  471. Declare Function ImageMap3D Lib "visualib.dll" (ByVal hdc%, ByVal hdib%, ByVal typ%, vertex As Any) As Integer
  472.  
  473.  
  474. ' text parameters
  475. Global Const VL_TEXT_HEIGHT = 1
  476. Global Const VL_TEXT_ASPECT = 2
  477. Global Const VL_TEXT_THICKNESS = 4
  478.  
  479. Declare Function TextParameter Lib "visualib.dll" (ByVal typ%, ByVal param#) As Integer
  480. Declare Function SelectFont Lib "visualib.dll" () As Integer
  481. Declare Function setfont Lib "visualib.dll" (lplf As Any) As Integer
  482. Declare Function Text2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal a#, ByVal text$) As Integer
  483. Declare Function Text3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal a#, ByVal text$) As Integer
  484. Declare Function SolidText Lib "visualib.dll" (ByVal hdc%, ByVal text$) As Integer
  485.  
  486.  
  487. ' 2D Curve Functions
  488.  
  489. Declare Sub QBezierCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  490. Declare Sub QBSplineCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  491. Declare Sub QNURBSCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  492.  
  493. Declare Sub BezierCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  494. Declare Sub HermitCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  495. Declare Sub BSplineCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  496. Declare Sub NURBSCurve2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  497. Declare Sub SplineInterp2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  498.  
  499. Declare Sub BSplineCurveClosed2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  500. Declare Sub NURBSCurveClosed2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  501.  
  502. Declare Sub CatmullRomSpline2D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  503.  
  504.  
  505.  
  506. '3D Curve Functions
  507.  
  508. Declare Sub QBezierCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  509. Declare Sub QBSplineCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  510. Declare Sub QNURBSCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  511. Declare Sub BezierCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  512. Declare Sub HermitCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any)
  513. Declare Sub BSplineCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  514. Declare Sub NURBSCurve3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  515. Declare Sub SplineInterp3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  516. Declare Sub BSplineCurveClosed3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  517. Declare Sub NURBSCurveClosed3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%, knot As Any)
  518. Declare Sub CatmullRomSpline3D Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal n%)
  519. Declare Sub Spring Lib "visualib.dll" (ByVal hdc%, ByVal n%, ByVal r#, ByVal h#)
  520.  
  521.  
  522. Declare Function CircleSide Lib "visualib.dll" (ByVal side%) As Integer
  523. Declare Sub TransfVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal a#, ByVal sx#, ByVal sy#, vertex As Any, ByVal n%)
  524. Declare Function RectangleVertex Lib "visualib.dll" (ByVal typ%, ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#, vertex As Any) As Integer
  525. Declare Function BoxVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal sx#, ByVal sy#, vertex As Any) As Integer
  526. Declare Function NgonVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, vertex As Any) As Integer
  527. Declare Function FlowerVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal r#, vertex As Any) As Integer
  528. Declare Function StarVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, vertex As Any) As Integer
  529. Declare Function ArcVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal a#, ByVal b#, vertex As Any) As Integer
  530. Declare Function PieVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal a#, ByVal b#, vertex As Any) As Integer
  531. Declare Function RingVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal a#, ByVal b#, ByVal w#, vertex As Any) As Integer
  532. Declare Function RoseVertex Lib "visualib.dll" (ByVal typ%, ByVal x#, ByVal y#, ByVal a#, ByVal r#, ByVal m%, ByVal n%, vertex As Any) As Integer
  533.  
  534.  
  535. '                               2D Primitive Functions
  536.  
  537. Declare Sub Rectangle2D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#)
  538. Declare Sub Box2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal w#, ByVal h#)
  539. Declare Sub Disk2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#)
  540. Declare Sub Pie2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  541. Declare Sub Ring2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#, ByVal w#)
  542. Declare Sub Chord2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  543. Declare Sub Ngon2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%)
  544. Declare Sub Flower2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal ratio#)
  545. Declare Sub Star2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%)
  546. Declare Sub Arc2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  547. Declare Sub Rose2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal r#, ByVal m%, ByVal n%)
  548.  
  549. Declare Sub Spiral2D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal a#, ByVal b#, ByVal r#, ByVal dr#)
  550.  
  551.  
  552. '                               3D Primitive Functions
  553.  
  554. Declare Sub Rectangle3D Lib "visualib.dll" (ByVal hdc%, ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#)
  555. Declare Sub Box3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal sx#, ByVal sy#)
  556. Declare Sub Ring3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#, ByVal w#)
  557. Declare Sub Disk3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#)
  558. Declare Sub Pie3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  559. Declare Sub Chord3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  560. Declare Sub Ngon3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%)
  561. Declare Sub Flower3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%, ByVal r#)
  562. Declare Sub Star3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal n%)
  563.  
  564. Declare Sub Arc3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal rx#, ByVal ry#, ByVal a#, ByVal b#)
  565. Declare Sub Rose3D Lib "visualib.dll" (ByVal hdc%, ByVal x#, ByVal y#, ByVal t#, ByVal r#, ByVal m, ByVal n%)
  566.  
  567. Declare Sub Spiral3D Lib "visualib.dll" (ByVal hdc%, ByVal a#, ByVal b#, ByVal r#, ByVal dr#, ByVal h#)
  568. Declare Sub Spring3D Lib "visualib.dll" (ByVal hdc%, ByVal a#, ByVal b#, ByVal r#, ByVal h#)
  569.  
  570.  
  571.  
  572. '                               3D Surface Functions
  573.  
  574. Declare Function BezierSurface Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal ns%, ByVal nt%) As Integer
  575. Declare Function HermitSurface Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal ns%, ByVal nt%) As Integer
  576. Declare Function BSplineSurface Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal Sc%, ByVal Tc%, ByVal ns%, ByVal nt%) As Integer
  577. Declare Function NURBSSurface Lib "visualib.dll" (ByVal hdc%, ByVal typ%, poly As Any, ByVal Sc%, ByVal Tc%, Skn As Any, Tkn As Any, ByVal ns%, ByVal nt%) As Integer
  578.  
  579. Declare Function CoonsPatch Lib "visualib.dll" (ByVal hdc%, ByVal typ%, pts As Any, ByVal nu%, ByVal nv%) As Integer
  580.  
  581.  
  582. ' Solid Primitive Functions
  583.  
  584. Declare Function Cube Lib "visualib.dll" (ByVal hdc%, ByVal w#, ByVal l#, ByVal h#) As Integer
  585. Declare Function Cylinder Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal h#) As Integer
  586. Declare Function Cone Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal h#) As Integer
  587. Declare Function Ellipsoid Lib "visualib.dll" (ByVal hdc%, ByVal a#, ByVal b#, ByVal c#) As Integer
  588. Declare Function Sphere Lib "visualib.dll" (ByVal hdc%, ByVal r#) As Integer
  589. Declare Function HemiSphere Lib "visualib.dll" (ByVal hdc%, ByVal r#, ByVal h#) As Integer
  590. Declare Function SolidStar Lib "visualib.dll" (ByVal hdc%, ByVal n%, ByVal rx#, ByVal ry#, ByVal h#) As Integer
  591. Declare Function SolidFlower Lib "visualib.dll" (ByVal hdc%, ByVal n%, ByVal r#, ByVal rx#, ByVal ry#, ByVal h#) As Integer
  592. Declare Function SolidPie Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal h#, ByVal a#, ByVal b#) As Integer
  593. Declare Function Frustum Lib "visualib.dll" (ByVal hdc%, ByVal bw#, ByVal bl#, ByVal tw#, ByVal tl#, ByVal h#) As Integer
  594. Declare Function Ridge Lib "visualib.dll" (ByVal hdc%, ByVal w#, ByVal l#, ByVal h#, ByVal r#) As Integer
  595. Declare Function Prism Lib "visualib.dll" (ByVal hdc%, ByVal typ%, basev As Any, ByVal n%, ByVal h#) As Integer
  596. Declare Function Pyramid Lib "visualib.dll" (ByVal hdc%, basev As Any, ByVal n%, tip As Any) As Integer
  597. Declare Function WedgedCone Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal h#, ByVal a#, ByVal b#) As Integer
  598. Declare Function WedgedCylinder Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal h#, ByVal tr#, ByVal a#, ByVal b#) As Integer
  599. Declare Function WedgedSphere Lib "visualib.dll" (ByVal hdc%, ByVal rx#, ByVal ry#, ByVal rz#, ByVal a1#, ByVal a2#, ByVal b1#, ByVal b2#) As Integer
  600. Declare Function WedgedTorus Lib "visualib.dll" (ByVal hdc%, ByVal r1#, ByVal r2#, ByVal a1#, ByVal a2#, ByVal b1#, ByVal b2#) As Integer
  601.  
  602. Declare Function Torus Lib "visualib.dll" (ByVal hdc%, ByVal r1#, ByVal r2#) As Integer
  603.  
  604. Declare Function SolidRing Lib "visualib.dll" (ByVal hdc%, ByVal rtop#, ByVal rbot#, ByVal t#, ByVal h#, ByVal a#, ByVal b#, ByVal ratio#) As Integer
  605. Declare Function Tube Lib "visualib.dll" (ByVal hdc%, ByVal rtop#, ByVal rbot#, ByVal t#, ByVal h#) As Integer
  606. Declare Function Sweep Lib "visualib.dll" (ByVal hdc%, transf As Any, ByVal nstep%, vertex As Any, normals As Any, ByVal npts%, ByVal mode%, snormal As Any) As Integer
  607. Declare Function Revolution Lib "visualib.dll" (ByVal hdc%, vertex As Any, normal As Any, ByVal n%, ByVal a#, ByVal mode%, snormal As Any) As Integer
  608. Declare Function Tetrahedron Lib "visualib.dll" (ByVal hdc%, ByVal r#) As Integer
  609. Declare Function Octahedron Lib "visualib.dll" (ByVal hdc%, ByVal r#) As Integer
  610. Declare Function Dodecahedron Lib "visualib.dll" (ByVal hdc%, ByVal r#) As Integer
  611. Declare Function Icosahedron Lib "visualib.dll" (ByVal hdc%, ByVal r#) As Integer
  612.  
  613.